perm filename MUFNC[CMS,LCS] blob
sn#092537 filedate 1974-03-17 generic text, type T, neo UTF8
00100 ARRAY F2,F3,F4,F5,F6,F7,F8,F9(512);
00200 SYNTH(F2);1,1 2,.6 3,.2 5,.1 999;
00300 SYNTH(F4);1,.6 2,.3 4,.4 6,.6 10,.5 13,.2 999;
00400 SEG(F3);1,1 .7,76 .3,88 0,100;
00500 SEG(F5);0,1 .4,40 .3,55 1,100;
00600 SEG(F6);0,1 1,50 .2,100;
00700 SYNTH(F7);1,1 2,.7 3,.5 11,.1 999;
00800 SEG(F9);0,0 .2,80 1,100;
00900 SEG(F8);0,0 .8,20 .3,40 1,65 .7,80 .1,100;
01000
01100 COMPILE;
01200 INSTRUMENT FUZZ;
01300 OSCIL(P4,MAG/P2,P5);
01400 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
01500 OSCIL(U1,MAG*P3+U2,P6);
01600 OUTA←OUTA+U3; END;
01700
01800 INSTRUMENT WUZZ;
01900 OSCIL(P4,MAG/P2,P5);
02000 OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
02100 OSCIL(U1,MAG*P3+U2,P6);
02200 OUTA←OUTA+U3; END;
02300
02400 INSTRUMENT FAT;
02500 OSCIL(P4,MAG*P2,P5);
02600 RANDH(MAG*P7,MAG*P8);
02700 OSCIL(U1,MAG*P3+U2,P6);
02800 OUTA←OUTA+U3; END;
02900 FINISH;